home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok84 / reqtools_2.1d / glue.lha / Glue / M2Sprint / VarCallArgs.def < prev    next >
Text File  |  1992-02-13  |  619b  |  28 lines
  1. DEFINITION MODULE VarCallArgs;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. (* This module allows you to create C-style argument lists *)
  6.  
  7.  
  8. (*********************************************************************)
  9. (* Various routines used for variable-length argument lists          *)
  10.  
  11.  
  12. PROCEDURE ArgIs(Arg : LONGCARD) : ADDRESS;
  13. (* Pass argument to a C-style routine *)
  14.  
  15.  
  16. PROCEDURE ArgIs2(Arg1, Arg2 : LONGCARD) : ADDRESS;
  17. (* Pass 2 arguments *)
  18.  
  19.  
  20. PROCEDURE ArgIs3(Arg1, Arg2, Arg3 : LONGCARD) : ADDRESS;
  21. (* Pass 3 arguments *)
  22.  
  23.  
  24. PROCEDURE ArgIs4(Arg1, Arg2, Arg3, Arg4 : LONGCARD) : ADDRESS;
  25. (* Pass 4 arguments *)
  26.  
  27.  
  28. END VarCallArgs.